home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / files-nomule.el.z / files-nomule.el
Encoding:
Text File  |  1998-05-21  |  4.1 KB  |  92 lines
  1. ;;; files-nomule.el --- file I/O stubs when not under Mule.
  2.  
  3. ;; Copyright (C) 1985-1987, 1992-1994 Free Software Foundation, Inc.
  4. ;; Copyright (C) 1995 Sun Microsystems.
  5.  
  6. ;; This file is part of XEmacs.
  7.  
  8. ;; XEmacs is free software; you can redistribute it and/or modify it
  9. ;; under the terms of the GNU General Public License as published by
  10. ;; the Free Software Foundation; either version 2, or (at your option)
  11. ;; any later version.
  12.  
  13. ;; XEmacs is distributed in the hope that it will be useful, but
  14. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16. ;; General Public License for more details.
  17.  
  18. ;; You should have received a copy of the GNU General Public License
  19. ;; along with XEmacs; see the file COPYING.  If not, write to the 
  20. ;; Free Software Foundation, 59 Temple Place - Suite 330,
  21. ;; Boston, MA 02111-1307, USA.
  22.  
  23. ;;; Synched up with: FSF 19.34 (files.el).   (Is it?  Please check)
  24.  
  25. ;;; Commentary:
  26.  
  27. ;; These stubs were moved from the bottom of files.el.
  28.  
  29. ;;; Code:
  30.  
  31. (defun insert-file-contents (filename &optional visit beg end replace)
  32.   "Insert contents of file FILENAME after point.
  33. Returns list of absolute file name and length of data inserted.
  34. If second argument VISIT is non-nil, the buffer's visited filename
  35. and last save file modtime are set, and it is marked unmodified.
  36. If visiting and the file does not exist, visiting is completed
  37. before the error is signaled.
  38.  
  39. The optional third and fourth arguments BEG and END
  40. specify what portion of the file to insert.
  41. If VISIT is non-nil, BEG and END must be nil.
  42. If optional fifth argument REPLACE is non-nil,
  43. it means replace the current buffer contents (in the accessible portion)
  44. with the file contents.  This is better than simply deleting and inserting
  45. the whole thing because (1) it preserves some marker positions
  46. and (2) it puts less data in the undo list."
  47.   (insert-file-contents-internal filename visit beg end replace nil nil))
  48.  
  49. (defun write-region (start end filename &optional append visit lockname coding-system)
  50.   "Write current region into specified file.
  51. By default, the file's existing contents are replaced by the specified region.
  52. When called from a program, takes three arguments:
  53. START, END and FILENAME.  START and END are buffer positions.
  54. Optional fourth argument APPEND if non-nil means
  55.   append to existing file contents (if any).
  56. Optional fifth argument VISIT if t means
  57.   set the last-save-file-modtime of buffer to this file's modtime
  58.   and mark buffer not modified.
  59. If VISIT is a string, it is a second file name;
  60.   the output goes to FILENAME, but the buffer is marked as visiting VISIT.
  61.   VISIT is also the file name to lock and unlock for clash detection.
  62. If VISIT is neither t nor nil nor a string,
  63.   that means do not print the \"Wrote file\" message.
  64. The optional sixth arg LOCKNAME, if non-nil, specifies the name to
  65.   use for locking and unlocking, overriding FILENAME and VISIT.
  66. Kludgy feature: if START is a string, then that string is written
  67. to the file, instead of any buffer contents, and END is ignored.
  68. Optional seventh argument CODING-SYSTEM is meaningful only if support
  69.   for Mule is present in XEmacs and specifies the coding system
  70.   used to encode the text when it is written out, and defaults to
  71.   the value of `buffer-file-coding-system' in the current buffer.
  72.   When Mule support is not present, the CODING-SYSTEM argument is
  73.   ignored."
  74.   (interactive "r\nFWrite region to file: ")
  75.   (write-region-internal start end filename append visit lockname nil))
  76.  
  77. (defun load (file &optional noerror nomessage nosuffix)
  78.   "Execute a file of Lisp code named FILE.
  79. First try FILE with `.elc' appended, then try with `.el',
  80.  then try FILE unmodified.
  81. This function searches the directories in `load-path'.
  82. If optional second arg NOERROR is non-nil,
  83.  report no error if FILE doesn't exist.
  84. Print messages at start and end of loading unless
  85.  optional third arg NOMESSAGE is non-nil (ignored in -batch mode).
  86. If optional fourth arg NOSUFFIX is non-nil, don't try adding
  87.  suffixes `.elc' or `.el' to the specified name FILE.
  88. Return t if file exists."
  89.   (load-internal file noerror nomessage nosuffix nil nil))
  90.  
  91. ;;; files-nomule.el ends here
  92.